home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / misc / gnuplot-3.7src.lha / gnuplot-3.7src / gnuplot-3.7.lha / gnuplot-3.7 / make_vms.com < prev    next >
Text File  |  1998-04-15  |  1KB  |  67 lines
  1. $!         
  2. $! GNUPLOT make program for VMS, Vers. 1.2, 1996/07/03
  3. $! (Rolf Niepraschk, niepraschk@ptb.de)
  4. $!
  5. $! This command procedure compiles and links GNUPLOT with MMS or MMK or
  6. $! invokes the dcl procedure BUILDVMS.COM
  7. $!
  8. $! Usage: @MAKE_VMS P1 [P2]
  9. $!    P1 = compiler ("DECC" or "VAXC" or "GNUC" or special make file if P2 = "")
  10. $!         default is "DECC"
  11. $!    P2 = special make file (eg. for testing), default is "DESCRIP.MMS"
  12. $!
  13. $ SAY = "WRITE SYS$OUTPUT"
  14. $ IF F$GETSYI("ARCH_TYPE") .NE. 1
  15. $ THEN
  16. $   AXP = 1 
  17. $ ENDIF
  18. $!
  19. $ P1 = F$EDIT(P1,"UPCASE") 
  20. $ IF P2 .NES. "" 
  21. $ THEN D_FILE = P2 
  22. $ ELSE D_FILE := DESCRIP.MMS
  23. $ ENDIF
  24. $!
  25. $ COMPILER := DECC
  26. $!
  27. $ IF (P1 .EQS. "DECC") .OR. (P1 .EQS. "") 
  28. $ THEN 
  29. $   DECC = 1
  30. $   COMPILER := DECC
  31. $ ELSE
  32. $   IF P1 .EQS. "VAXC" 
  33. $   THEN 
  34. $     VAXC = 1
  35. $     COMPILER := VAXC
  36. $   ENDIF
  37. $ ELSE
  38. $   IF P1 .EQS. "GNUC"
  39. $   THEN 
  40. $     GNUC = 1
  41. $     COMPILER := VAXC 
  42. $   ENDIF
  43. $ ELSE
  44. $   D_FILE = P1
  45. $   DECC = 1
  46. $ ENDIF
  47. $!
  48. $ DCL_PROC = "BUILDVMS.COM"
  49. $ COMMAND = "" 
  50. $ IF F$TYPE(MMK) .NES. ""
  51. $   THEN COMMAND = "MMS"
  52. $ ELSE
  53. $   IF F$SEARCH("SYS$SYSTEM:MMS.EXE") .NES. "" THEN COMMAND = "MMS"
  54. $ ENDIF
  55. $!
  56. $ IF COMMAND .NES. "" 
  57. $ THEN 
  58. $   SAY "Make Gnuplot with ''COMMAND' and ''COMPILER'." 
  59. $   SAY ""
  60. $   'COMMAND' /DESCRIPTION='D_FILE' /IGNORE=WARNING
  61. $ ELSE
  62. $   SAY "Make Gnuplot with DCL procedure ''DCL_PROC'."
  63. $   SAY ""
  64. $   @'DCL_PROC'
  65. $ ENDIF
  66. $ EXIT
  67.